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: 
PPPPPPPP AAAAAA SSSSSSSS_HH HH  AAAAAA NN NN DDDDDDDD LL EEEEEEEEEE | : 
PPPPPPPP AAAAAA SSSSSSSS HH HH — AAAAAA NN NN DDDDDDDD LL EEEEEEEEEE : 
PP PP AA AA SS HH HH AA AA NN NN DD DD LL EE | : 
PP PP AA AA SS HH HH AA AA NN 0D DD LL EE : 
PP PP AA AA SS HH HH AA AA NNNN = NN DD DD LL EE : 
PP PP AA AA SS HH HH AA AA NNNN NN DD DD LL EE ’ 
PPPPPPPP = AA AA SSSSSS_—s- HHHHHHHHHH AA AA NN NN NN DD DD LL EEEEEEEE | : 
PPPPPPPP = AA AA SSSSSS__-HHHHHHHHHH AA AA NN NN NN DD DD LL EEEEEEEE : 
PP AAAAAAAAAA SS HH HH AAAAAAAAAA NN = NNNN DD DD LL EE ; 
PP AAAAAAAAAA SS HH HH AAAAAAAAAA NN = NNNN DD DD LL EE : 
PP AA AA SS HH HH AA AA NN NN DD DD LL EE sees ° 
PP an AA SS HH HH AA AA NN NN DD DD LL EE eos ; 
PP Ak AA SSSSSSSS_HH HH AA AA NN NN DDDDDDDD LLLLLLLLLL EEEEEEEEEE eoee : 
PP AA AA SSSSSSSS_ HH HH AA AA NN NN DDDDDDDD LLLLLLLLLL EEEEEEEEEE woes ; 

| : 
LL HII SSSSSSSS : 
LL HII SSSSSSSS : 
LL II Ss : 
LL I] SS : 
LL I] Ss : 
LL I] SS ‘ 
LL I] SSSSSS : 
LL I] SSSSSS : 
LL I] Ss : 
LL I] SS : 
LL I] SS : 
LL I] Ss : 
LLLLLLLLLL «=sIIIII = SSSSSSSS : 
LLLLLLLLLL §=sSTITIIIT = SSSSSSSS | : 

| : 

| 

| 
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$ep-1984 01:39:14 AX-11 Bliss-32 =74 

=30 71382 OF SFiS PASRTL SREIPASHANDLE. 64251 (1 
ish 
ile 


| 
as 0001 0 MODULE PASSHANDLER ( XTITLE ‘Handler established by compiled code’ | : 
i @ 0002 0 IDENT = 1-002" I File: PASANDLE.B32 Edit: SBL1002 | 
° 000 ) = ° 
3 4 0004 1 BEGIN : 
; 5 0005 1! ; 
3 ° sie) 1 SRR EREREREREEE Ps 
; 0 1 te * ; 
; 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * H 
3 9 0009 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * ; 
5 19 Bare : fs ALL RIGHTS RESERVED. * ; 
3 ' & | ° 
5 \¢ Bolg 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 
3 015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * | ; 
; % 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHE * | : 
0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * | ; 
; 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ° 
5 i EA : :* TRANSFERRED. * 3 
Ps i® ® ' § 
: 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
; w@ 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
: $3 ot : to CORPORATION. * : 
3 :* * : 
: 23 $038 1 !'* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
; 60264 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
: 2 0025 1 !* * : 
;: & 0026 1 !* * 3 
4 a7 0027 1 VR R RRR | és 
; 0028 1! ; 
‘1 0029 1 | g 
; 2 0030 1 !++ : 
;. 0031 1 ! FACILITY: Pascal Language Support : 
; 0032 1! | 3 
; 33 0033 1 ! ABSTRACT: P 
; | 34 0034 1! bg 3 
; 0035 1! This module contains PASS$HANDLER, the condition handler established : 
4 $9 te] : by Pascal compiled code routines which have local files or checking. : 
5 3 sits 4 : ENVIRONMENT: User mode - AST reentrant : 
; re re : AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 | : 
s €2 0042 1 ! MODIFIED BY: 3 
2 6F 0043 1! 3 
; & 0044 1 ! 1-001 = Original. SBL 1-April-1981 | 3 
; 65 0045 1 ! 1-002 - Add enable of PASSSGOTO_HANDLER, call of PASSSUNWIND_GOTO to 3 
> 46 0046 1: support revised PAS$GOTO. SBL 28-Jan-1983 | : 
3 47 0047 1 !<- F 
; 648 0048 1 : 


Se ~ . + 


PASSHANDLER Handler established by compiled code -1984 01:39:14 AX-11 Bliss-32 V Page 2) 
1-002 Declarations . . - 71382 04:39:38 PASRTL.SRC PASHANDLE. +} 2:1 ’ (2) | 
H 20 0049 1 ZSBTTL ‘Declarations’ : 
; 1 peed 1! | : 
3 26 00 1 ! PROLOGUE DEFINITIONS: | 3 
4 2 B026 1! 3 
; 54 00535 1 F 
; 22 B938 1 REQUIRE 'RTLIN:PASPROLOG'; ! Externals, Linkages, PSECTs, structures ; 
; OF 0119 1! ; 
3 58 0120 1 ! TABLE OF CONTENTS: 
) oe 0121 1! 
; ©60 01 ¢ 1 
: 61 8 1 FORWARD ROUTINE 
3 6¢ 124 1 PASSHANDLER; ! Compiled code handler 
; § 0125 1 
: «664 0126 1! 
> «65 0127 1 ! MACROS: 
: 666 0128 1! 
el oa at 1! NONE 
; 0130 1! 
; 6469 0131 1 ! EQUATED SYMBOLS: 
: O16 7 
; 0133 1! NONE 
; 0134 1! 
; 0135 1 ! FIELDS: 
a 0136 1! | 
ee + 0137 1! NONE | 
; © 0138 1! 
Se y 0139 1 ! OWN STORAGE: 
a. wm 0140 1! 
; 0141 1} NONE | 
| 
| 
| 


15 
PASSHANDLER Handler established by compiled code 1b-52 1984 01:39:14 AX-11 Bliss-32 V4.0-74 Pa 3 
1-002 PASSHANDLER = Compiled code handler 12-Sep-1984 12:51:32 PASRTL.SRC IPASHANDLE .B ent ae (3) | 
81 | XSBITL “PASSHANDLER = Compiled code handler’ 
6 GLOBAL ROUTINE PASSHANDLER ( 
8 SIGNAL_ARGS: REF BLOCK C, BYTE), ! Signal arguments array 
8 as MECH_ARGS: REF BLOCK C, BYTE] i Mechanism arguments array | 
a6 | 
87 oe 
a8 ! FUNCTIONAL DESCRIPTION: 
90 This condition handler is established by VAX=11 Pascal compiled 
91 code in the procedure prologue. It performs the following 
3g services: 
| 
94 If the current exception is PAS$_GOTO, generated by an up-level 
95 GOTO, PASSSUNWIND_GOTO is called and control returns to CHF. 
97 


Otherwise: : 
1. Calls user condition handler declared with 

ESTABLISH, including the environment value. 

The user handler address and the environment — 

value are at offsets -8 and -4 from the establisher's FP. 


code for run-time error checking, and converts them 
into Pascal-specific messages. 


3. Closes any locally-declared files upon an unwind. 

CALLING SEQUENCE: 

status.wlc.v = PASSHANDLER (SIGNAL_ARGS.ml.ra, MECH_ARGS.rl.ra) 
FORMAL PARAMETERS: 

SIGNAL_ARGS - The signal argument List. This may be modified. 

MECH_ARGS - The mechanism argument List. 
IMPLICIT INPUTS: | 

For certain exceptions, the instruction stream pointed to by the 


| 
| 
| 
| 
2. Intercepts certain exceptions generated by compiled | 
| 
| 


signaled PC is used to determine the correct Pascal-specific 
message. 


User-established condition handler and environment value at -8 and 
-4 of users FP. 


IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 

SS$_RESIGNAL, or as returned from user handler 
SIDE EFFECTS: 
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PASSHANDLER Handler established by compiled code 16-Sep-1984 01:39:14 AX-11 Bliss-32 V4.0-74 Page 4) 
1-000 PASSHANDLER = Compiled code handler 12-88-1382 03:35 32 PASRTL. RCIPASHANDLE .B 2:1 . (3) 
0199 1 May close local files. 
leo 
BEGIN 
CAL 
USERS_FRAME: REF VECTOR C, LONG], ! User's stack frame 
RETURR_STATUS; ! Handler return status 
LABEL 
INSTR_BLOCK; ! Block looking at instruction stream 
BUILTIN 
AP, ' Argument pointer 
CALLG, ' CALLG instruction 
PROBER; ! Probe for read 


+ 
Declare special Linkage used for calling user condition handlers. 


LINKAGE 
CALL_USER_HANDLER = CALL (REGISTER=1, ! Environment pointer 
STANDARD, ! Signal argument List. 
STANDARD) ; ! Mechanism argument List 


J 
! Establish PAS$$GOTO_HANDLER as our handler to catch up-level GOTOs 
while doing condition handling. 


PARA AAPAEMAAAAIA ISI  & EEEEE 


NABLE 
PAS$$GOTO_HANDLER; 


+ 
Get the stack frame pointer of our establisher. 


USERS_FRAME = .MECH_ARGS CCHFSL_MCH_FRAME); 


1+ 
; Initialize handler return status to SS$_RESIGNAL. 


RETURN_STATUS = SS$_RESIGNAL; 


'¢ 

! Determine if this is an up-level GOTO. If so, call PASSSUNWIND_GOTO 
! and return. It may only return SS$_RESIGNAL, but we don't want 

the user handlers to see PAS$_GOTO. 


000009 0909 09 SINS SINS NNO OO 


IF SIGNAL_ARGS CCHFSL_SIG_NAME] EQLU PASS GOTO 
RETURN (CALLG (.AP, PASSSUNWIND_GOTO)); 


Be Se Be Oe Be Bs Se Be Se Be Se Se Se Se Se Se Se Se Se Be Ge Se Se Se Se Se Se Se oe SH Oe Se Se FH SH Se Se HSH Se Oe Se SESH ee BES ae Se Se Se Se Se Se Seeese 
ee ee ee ee ee ee ec ec em ke ee a 8d ed od wd wd od = = —) od 3 
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PASSHANDLER Handler established by compiled code 16-Sep-1984 01:39:14 AX-11 Bliss-32 V4.0-74 Page 
A805 PASSHANDLER = cone itog code handler 12-808-13be 93:39:35 PASRTL. RCIPASHANOLE .B 231 . (33. 
:; 19% ! Determine if this is an unwind. : 
Bg oe ee ae 
; 198 2g IF_ .SIGNAL_ARGS CCHFSL_SIG_NAME] EQLU SS$_UNWIND : 
; 199 8 60 THE : 
; 200 61 BEGIN : 
; 201 0 $6 3 
; 0g 026 1+ | : 
; 2 0264 ! This is an unwind. First, call the user's handler, if there ; 
> 204 0265 i is one. | : 
; 205 0266 te 3 
3 508 0267 : 
; 207 0268 IF .USERS_FRAME ([-2] NEQ 0 ! Handler present? $ 
; 208 0369 THEN ; 
; 209 0270 RETURN_STATUS = CALL_USER_HANDLER ( : 
3; 210 0271 -USERS_FRAME [-2], ! Handler address : 
3 62} os7¢ -USERS FRAME [-1], ' Environment 3 
: si¢ 027 - SIGNAC_ARGS, ! Signal arguments | : 
ay 0274 -MECH_ARGS) ; ! Mechanism arguments ; 
> 214 0275 3 
3 215 0276 3 ‘+ 
; 216 0277 3 ! Now call PASSSCLOSE_LOCAL to close any local files. 
; ev 0278 3 !- 
; 218 0279 3 
>; 219 0280 3 PASSSCLOSE_LOCAL (.USERS_FRAME); 
; 220 0281 3 
s gel OSes 3 END ! End of actions for unwind 
3 gee 0283 3 
S ges 0284 2 ELSE 
; 224 0285 ¢ 
3 @e3 0286 BEGIN 
; 226 0287 3 
: 227 0288 3 + : 
3; ee 0289 3 ! This is not an unwind. Check to see if it is an exception generated 
: 229 0290 3 : by compiled code. If so, information in the instruction stream 
3 $30 94 ; , tells us which PASS message tu turn the signal into. 
° . | 
: ee 0598 3 ! The spt teeone table gives the combinations we are interested in, | 
3 233 0294 3 : and the location of the code (0-63) ; 
3 S3e 5344 ; Exception Instruction Code byte location | 
3 236 0297 3 : SS$_OPCDEC HALT -BYTE after HALT ’ 
s €or 0298 3 : SS$_SUBRNG INDEX TSTB #x (current instruction) 
3 $36 {444 ; SS$_INTOVF any TSTB #x (current instruction) 
: 240 0301 ! Special case: If the oncont ten is SS$_SUBRNG and the next instruction 
; 241 b308 ' is not a TSTB #x, signal PASS$_ARRINDVALC. 
; ri} 030 !e 
: 24 0304 
: 44 0305 IF .MECH_ARGS CCHFSL_MCH_DEPTH] EQL 0 AND 
: 245 03 4 ((.SIGNAL_ARGS CCAFSL-SIG_NAME) EQLU SS$_OPCDEC) OR 
; 246 0307 4 (.SIGNAL_ARGS CCHFSL_SIG_NAME] EQLU SS$_SUBRNG) OR 
3: 247 0308 4 (.SIGNAL_ARGS CCHFSL_SIG_NAN._J EQLU SS$_INTOVF)) 
: 248 B38 THEN 
: 249 310 : , 
; 250 0311 ! Create labelled block to contain code that looks at the 
» @% 0312 ! instruction stream. If at any time, the conditions are not 
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-002 PASS$HANDLER = Compiled code handler 1278 08- 138 93; 1:32 LPASRTL SRC IPASHANDLE .B 231 
5 0313 ! consistent with converting the exception to a PAS$ exception, 
38 gi ; just leave the block. ° . . 
55 0 18 4 INSTR BLOCK: BEGIN 
56 31 4 
57 0318 4 OCAL 
58 $384 4 INSTR PC: REF VECTOR C, BYTE], ! Signaled PC. 
59 0320 4 OPCODE: WORD, ! Opcode at signaled PC 
ei b3 1 ? NEW_MESSAGE: BLOCK (4, BYTE); ! Replacement message code 
o¢ 03 : 4 LITERAL 
6 t 4 4 OPC_HALT = oh ! Opcode for HALT 
64 0325 4 OPC_BPT = %X'05?, ' Opcode for BPT 
265 8 6 4 OPC_TSTB = %Xx'95'; ! Opcode for TSTB 
266 0 si 4 
267 0328 4 ‘¢ ; 
268 tT 4 ! Are there just 3 signal arguments? There should be just the 
269 0330 4 ! condition name, PC and PSL. If not, resignal. 
270 0331 4 l- 
271 O3e8 4 
si¢ 03335 4 IF _ .SIGNAL_ARGS CCHFSL_SIG_ARGS] NEQ 3 
27 0334 4 
274 0335 4 LEAVE INSTR_BLOCK; ! Just resignal 
275 0336 4 
276 0337 4 + 
277 0338 4 ! Can we read the instruction byte and the following byte? 
278 0339 4 !- 
279 0340 4 : 
280 0341 4 INSTR_PC = .SIGNAL_ARGS (8,0,32,0]; ! Get PC_of instruction 
sei Oe8 ? IF NOT PROBER (ZREF(O), %REF(2), INSTR_PC [0)) ! PC 
283 0344 4 LEAVE INSTR_BLOCK; ! Resignal if can't access 
284 0345 4 
285 0346 4 + 
286 0347 4 ! Get the opcode byte. 
287 0348 4 !- 
288 0349 4 
289 0350 4 OPCODE = .INSTR_PC (0); 
290 0351 4 
291 Ose¢ 4 '¢ 
292 0353 4 ! If the opcode byte is BPT, then it looks Like the user 
293 0354 4 ! set a breakpoint on this instruction. Call LIBSGET_OPCODE 
294 0355 4 ' to find out what the byte really is. 
$3? 0336 4 !- 
96 0357 4 
297 0358 4 !! Don't call LIBSGET_OPCODE on VMS v2 
98 L 0359 4 ZIF XVARIANT 
99 U 0360 4 XTHEN 
00 0361 4 XELSE 
301 Bse¢ & IF ,OPCODE EQLU OPC_BPT ! BPT opcode 
302 0365 4 i 
03 0364 4 OPCODE = LIBSGET_OPCODE (INSTR_PC (0)); 
04 Bee2 4 XFI 
5 308 4 
0367 4 '¢ ’ f : 
307 0368 4 ! Now, if the exception is SS$_OPCDEC, then the instruction 
308 0369 4 ' must be HALT. Otherwise, it must be TSTB. 
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PASSHANDLER Handler established by compiled code 16-Sep-1984 01:39:14 AX-11 Bliss-32 V4.0-74 Page 7) 

1-002 PASSHANDLER - Compiled code handler 12-88-1982 93:89:45 PASRTL. RCIPASHANOLE .B 2:1 . (3) | 
; 309 0370 4 le ; 
5 Sie 8 71 4 : 
s 351} Le: 4 IF_.SIGNAL_ARGS CCHFSL_SIG_NAME] EQL SS$_OPCDEC : 
3 \¢ 0375 4 THEN : 
) 0374 5 BEGIN $ 
: i 8 78 2 IF .OPCODE NEQ OPC_HALT : 
; 316 0377 5 LEAVE INSTR_BLOCK; ! Just resignal 3 
: 317 0378 § . 
5 «8 0379 4 ELSE IF .OPCODE NEQ OPC_TSTB ! SUBRNG or INTOVF : 
; 319 0380 4 THEN : 
; 359 0381 2 BEGIN : 
; 3s! 8 Hf ? a tees CCHFSL_SIG_NAME] EQL SS$_SUBRNG : 
; 35 0384 5 SIGNAL_ARGS CCHFSL_SIG_NAME] = PAS$_ARRINDVAL; ; 
; $S¢ 0385 5 LEAVE INSTR_BLOCK; ! Just resignal | 3 
; Seo 0386 4 END; 3 
> 326 0387 4 | : 
3 Ser 0388 4 + : 
:; 328 0389 4 ! Ok, we now know that the current instruction is : 
; 4 Bene 4 ! one that the compiler uses to signal us that we should ; 
; 2 0391 4 ' translate _the exception. The next byte must be in the 3 
S oo $344 4 ! range 0-63. This is either a .BYTE following the ; 
3 Soe 0393 4 ' HALT or a short Literal following the TSTB. F 
. Soo 0394 4 te : 
; 334 0395 4 3 
; 335 0396 4 IF_.INSTR_PC C1) GTRU 63 ; 
: 336 0397 4 THEN F 
: Sor 0398 4 LEAVE INSTR_BLOCK; ! Just resignal 5 
> 338 0399 4 3 
s io 0400 4 + : 
; 340 0401 4 ! If the code is PASSK_IGNORE, meaning that the compiled | : 
> 341 oh 4 4 ! code wants us to ignore this exception, continue execution : 
; 34 0403 4 ! by returning SS$_CONTINUE. F 
>; 34 0404 4 te : 
3: 344 0405 4 : 
; 345 0406 4 IF .INSTR_PC C1] EQLU PASSK_IGNORE : 
; 346 0407 4 THEN : 
3; «347 0408 4 RETURN SS$_CONTINUE; : 
; 348 0409 4 3 
; 349 0410 4 1+ 3 
; 350 0411 4 ! Ok, construct the PAS$ message, replacing the system 3 
s Role 4 ! message. : 
; 326 0413 4 te 3 
; 0414 4 2 
; 354 0415 4 NEW_MESSAGE = PAS$_BASE; ! Base message : 
; 355 0416 4 NEW"MESSAGE CSTS$V~CODE) = .INSTR_PC C1] + PAS$S$K_MSGCHKBAS; ; 
; 356 0417 4 SIGRAL_ARGS CCHFSL_SIG_NAME] = .NEW_MESSAGE; 3 
3 $25 0418 4 3 
; 38 0419 4 '¢ : 
; So bess 4 ' Step the PC over the two bytes. F 
: 360 0421 4 le 3 
3 el 04 ¢ 4 3 
: 305 o4 Z ? SIGNAL_ARGS (8,0,32,0] = .SIGNAL_ARGS (8,0,32,0] + 2; : 
; 307 425 ; END; : 
: 365 0426 : 
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1-002 PASSHANDLER = Compiled code handler 12-808- 1 3b 93:39:35 PASRTL.SRCJPASHANDLE .B32;1 — 
; 1+ 
of i joan the user's handler, if any. 
: 393 $234 IF .USERS_FRAME [2] NEQ 0 ' Handl ? 
: 3ft 8 : Col andler present? 
3 re 04 racket a ie ane t=3 USER_HANDLER ( 
ee 0434 ‘]: ' Handler address 
; 374 0435 ~eEne- FRAME ' Environment 
; ie 0436 ; “SIGNAL A ARGS, i Signal arguments 
: 3/8 eh -MECH_ARGS) ; ! Mechanism arguments 
: 378 §e36 3 END; 
; 379 0440 § 
: 380 ae § RETURN .RETURN_STATUS; ' Return to CHF 
: 382 bee § 1 END; ' End of routine PASSHANDLER 


-TITLE PASSHANDLER Handler established by compiled cod 
-IDENT \1-002\ 


~EXTRN PASSHANDLER PASS$$GOTO_HANDLER 
“EXTRN PASS G PA ASSSUNWIND “GOTO 
~EXTRN PASESCL os 

~EXTRN LIBS6 eT OBCODE bass ARRINDVAL 
~EXTRN K_IGNORE, PAS$_BASE 

~EXTRN PASSSR _MSGCHKBAS 


~-PSECT _PASSCODE,NOWRT, SHR, PIC,2 


01FC 00000 -ENTRY PASSHANDLER, Save R2,R3,R4,R5,R6,R7,R8 5 
6D 010D CF DE 00002 MOVAL 12$, (FP) : 
50 08 AC DO 00007 MOVL MECH_ARGS, RO : 
55 04 AO 00 00008 MOVL  4(ROJ, USERS FRAME : 
58 0918 8F 3C OOO0DF MOVZWL #2328, RETURN STATUS 3 
50 04 AC DO 00014 MOVL SIGNAL_ARGS, RO 3 
000000006 &F 04 AO D1 00018 CMPL 4(RO), “#PAS$_GOTO : 
08 12 00020 BNEQ 1$ ; 
000000006 00 6C FA 90022 CALLG (AP), PAS$SUNWIND_GOTO : 
04 00029 RET F 
54 04 AC DO 0002A 18: MOVL § SIGNAL_ARGS, R4 ; 
56 04 Ad DO 000 MOVL  4(R4),~R6 ; 
00000920 = &F 36 D1 90 CMPL R6, #2336 : 
23 12 000 BNEG 3$ : 
F8 «AS «DS 00038 TSTL § =8(USERS_FRAME) > 026 

10 1 00 BEQL 2 : 

08 AC DD 0004 PUSHL MECH_ARGS 3; 0 

54 DD 0004 PUSHL : 0 

51 FC =6AS) «(DO 00045 MOVL =4(USERS FRAME), R1 : 0 
F8 «BS 08 FB 0049 CALLS #2, a-B(OSERS FRAME) ; 
58 50 D0 0004D MOVL RETURN STATUS 3 
55 DD 00050 2$ PUSHL US RS_FRAM F 
000000006 00 16 0098 JSB PASSSCLOSE “LOCAL ; 
5E 04 ¢ 005 ADDL2 #4 ; 
0081 31 00058 RWW 11 ig ° ; 
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1-002 PASSHANDLER = Compiled code handler 12-808} 382 93; 333 1:32 PASRTL.SRCJPASHANDLE .B32;1 
57 08 aC DO O00SE 3$ MOVL MECH_ARGS, R7 
ah ee 
0000043C = BF 56 D1 00067 CMPL R6, #1084 
is us 0006¢ BEQL 4$ 
QO0004AC BF 56 D1 0007 CMPL R6, #1196 
09 13 90077 BEQL 4$ 
0000047C = &F 6 Di 00079 CMPL R6, #1148 
79 12 00080 BNEQ 108 
03 $4 D1 00082 4$ CMPL (R4), #3 
4 12 0008 BNEQ 10$ 
33 08 Ad dO 90087 MOVL 8(R4), INSTR 
62 0 00 OC 00088 PROBER #0, #2, CINSTR PC) 
6A 13 0008F BEQL 10$ 
53 $¢ 98 00091 MOVZBW (INSTR_PC), OPCODE 
03 53 Bi 00094 CMPW OPCODE, #3— 
0¢ 12 00097 BNEQ 5$ 
52 DD 00099 PUSHL INsT 
000000006 00 01 FB 0009B CALLS “  TBSGET_OPCODE 
53 50 BO 000A2 MOVW RO: OPCODE 
0000043c = BF 56 D1 000A5 5$ CMPL R6, #1084 
06 12 OOOAC BNEQ 
53 BS OOOAE TSTW  OPCODE 
1¢ 13 00080 BEQL 8$ 
47 11 000B2 BRB 10$ 
0095 28F 53 B1 000B4 6$ CMPW  OPCODE, #149 
13 13 000B9 BEQL 
Q000004AC BF 56 D1 000BB CMPL R6, #1196 
37 12 000C2 BNEQ 
04  A4& 000000006 8F D0 000C4 MOVL #PAS$_ARRINDVAL, 4(R4) 
2D 11 O000CC 7$ BRB 
3F 01 A2 91 OOOCE 8$ CMPB 1CINSTR_PC), #63 
27 1A 00002 BGTRU 
006 01 A2 91 000D4 CMPB 1(INSTR_PC), S*PAS$K_IGNORE 
04 12 00008 BNEQ 9s 
50 01 DO OOODA MOVL , RO 
04 000DD RET 
50 000000006 8F DO OOODE 9$: MOVL #PAS$_BASE, NEW_MESSAGE 
51 A2 9A OO00ES MOVZBL 1 (INSTR 
51 0000G 8F AO O00E9 ADDW2 #PASSS$K~MSGCHKBAS, R1 
50 0c 03 51 FO OO0EE INSV #3, #12, NEW MESSAGE 
04 AG 50 DO OOOF MOVL NEW_MESSAGE. 4(R2) 
08 A4 02 CO 000F7 ADDL2 (R4 
F8 AS D3 OOOFB 108: TSTL 7 B{USERS_FRAME) 
OF 13 OOOFE BEQL 1$ 
0090 8F BB 00100 PUSHR #*M<R4,R7> 
51 FC AS DO 00104 MOVL -4(USERS FRAME), 
F8 85 oe FB 00108 CALLS #2, . oS(OSERS FRAME ) 
58 50 bdO 0010C MOVL RO URN_ STATUS 
50 58 DO OO10F 11$: MOVL RETURN. STATUS, RO 
04 pottg RET 
0000 00113 12$ -WORD Save nothing 
7E 04 00115 CLRL -(SP) 
5E bb 0117 PUSHL SP 
7E 04 AC 7D 00119 MOVa 4(AP), -(SP) 
000000006 00 03 FB 0011D CALLS #3, PAS$SGOTO_HANDLER 
04 00124 RET 
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Handler established by compiled code 


rxgpmoue 
1-002 


; Routine Size: 


383 
384 


PASSHANDLER = Compiled code handler 


293 bytes, Routine Base: _PAS$CODE + 0000 


0444 1 
0445 1 !<BLF/PAGE> 


714 VAX-11 Bliss-32 V4.0-7 
:32 CPASRTL. SRCIPASHANDLE. 3 2:1 


PASSHANDLER Handler established by compiled code “19 9: AX-11 Bliss-32 v4.0 Page 11 
1-002 PASSHANDLER - tone itod code handler ars ri 93; 3 33 PASRTL.SRC PASHANOLE. f 2:1 . (4) 
: 38 0446 1 END ! End of module PAS$HANDLER 
: 388 0448 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
: _PASSCODE 293 NOVEC,NOWRT, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
H Library Statistics 
gE A SNR = eam: Spanien <setndeiamian Pages Processing 
: File Total Percent Mapped Time 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 0 581 00:01 .0 
; ~$255$DUA28: CPASRTL.OBJJPASLIB.L32;1 427 2 33 00:00. 
COMMAND QUALIFIERS 
: PL SSS/CRECH OSE BELD, BNET TA, PT EME SES SUOTRACE A £54, 158 PREM E/E CRIS PROS MSRC$:PASHANDLE/UPDATE=(ENH$:PASHANDLE 
; Size: 293 code + 0 data bytes 
; Run Time: 00:08.0 
; Elapsed Time: 00:31.9 
3364 


; Lexemes/CPU-Min: 12000 


; eee Used: 
a 


; Compi 


+ Lines/CPU Min: 


105 pages 


tion Complete 
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